home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 4
/
FM Towns Free Software Collection 4 - Disc 2.iso
/
heat_tst
/
tiff.cfg
< prev
Wrap
Text File
|
1991-10-19
|
3KB
|
110 lines
/*********************************************************************
/*
/* TIFF.CFG : TIFF形式画像データ表示用,外部マクロコマンド
/*
/* TABSIZE = 4
/*
/*---【MEMO】---------------------------------------------------------
/*
/* 画面退避分のメモリ(133 KB)とTIFF画像データのファイルサイズ分
/* のフリーメモリが必要。
/*
/*
main {
wind_close()
wind_init()
filename = "";
file_select("filename","TIFF ロード",-1, "", "*.tif",0)
if ( VAL ! 0 )
{ wind_init()
# echo("\n\(filename): FILE OPEN ERROR!!\n")
# wait(10)
wind_close()
return (-1)
}
WXS = 624; /* ウィンドゥサイズ
WYS = 424;
wind_size_set(8,8,WXS,WYS) /* ウィンドゥサイズ最大に設定
wind_str_color(C_MBLACK) /* 文字色
wind_open() /* ウィンドゥオープン
mos_cursor(82,1) /* マウスカーソル(時計)
tiff_load(filename,-8,-32) /* TIFF ロード
RET = VAL;
mos_cursor(81,0) /* マウスカーソル(ノーマル)
if ( RET < 0 )
{ echo("\n\tTIFF LOAD ERROR!!\n")
wind_close()
wind_init()
return (-1)
}
syslin_puts(C_GREEN,C_BLACK,"マウスボタンを押してください。")
mos_wait("x","y",81)
# mosget("sw","x","y")
# menu_yes_no(x,y,C_CYAN,"データを切り出しますか?")
# if ( VAL > 0 )
# { r_sub()
# }
wind_close()
wind_init()
}
/*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
/* 指定範囲のドット・パータンを取り出しカットバッファに設定する
/*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
r_sub {
xx = WXS;
yy = WYS;
dec(xx)
dec(yy)
/* 第1点 指定
syslin_puts(C_GREEN,C_BLACK,"切り出すポイント(1)を指定してください。")
mos_wait("x1","y1",-1,4)
if ( VAL = 2 )
{ return
}
graph("line",x1, 0,x1,yy,XOR,4) /* マークカーソル
graph("line", 0,y1,xx,y1,XOR,4)
/* 第2点 指定
syslin_puts(C_GREEN,C_BLACK,"切り出すポイント(2)を指定してください。")
mos_wait("x2","y2",-1,4)
if ( VAL = 2 )
{ return
}
graph("line",x1, 0,x1,yy,XOR,4) /* マークカーソル消去 */
graph("line", 0,y1,xx,y1,XOR,4)
graph("getblk", x1,y1,x2,y2,C_MBLACK,"buf")
set_cbuf(buf) /* カットバッファに設定
buf = ""
/*--------------------------------------------------------------
/* 切り出しサイズ計算
/*
xx = x1;
sub("xx",x2)
if ( xx > 0 ) /* x1 > x2 */
{ expr("xx","\(x1)-\(x2)+1")
} else
{ expr("xx","\(x2)-\(x1)+1")
}
yy = y1;
sub("yy",y2)
if ( yy > 0 ) /* x2 > x2 */
{ expr("yy","\(y1)-\(y2)+1")
} else
{ expr("yy","\(y2)-\(y1)+1")
}
syslin_puts(C_GREEN,C_BLACK,"サイズは(\(xx),\(yy))データはカットバッファに設定しました。")
wait(5)
}